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329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 
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343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

^67 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 000046 

379 

380 000052 

381 

382 

383 

384 



000024 
000026 



000046 
003102 
000052 
140000 
000176 

000176 000000 
000200 

000200 0W0167 



BUT DOES HOT CHECK AHY OF THE POHEBFIIL CIRCUITBY 
BECAUSE ACT MILL NOT POWER FAIL DURIUG GV- 



PDP-ll POWEfi FAIL TEST 

THIS PROGRAM CONSIST OF SEVERAL TEST THAT IHSURE THAT 

POMER FAIL IS OPERATING CORRFCTLV- 



***PROGRAM SUPPORTS SOFTWARE SHITCH REGISTER CLCC 1763*** 



POWER FAIL TRAPS TO LOCATION 24 



.ABS 
.=0 
-REPT 
-♦2 
HALT 
.ENDR 
PFHAND: 


-REPT 
.+2 
HALT 
.ENDR 



;POWEP FAIL TRAPPFD TO WRONG LOCATION 



;ADDfiESS OF POWER FAIL HANDLER 
;STATDS 



;POHER FAIL TRAPPED TO WRONG LOCATION 



400 TO 1000 IN MEMORY IS ASSIGNED TO THE STACK 



. = 46 

LOGICAL 

.=52 

140000 

-=176 



SWREG: 
MASTER: 



.=200 
JMP 



>SOFTHARE SWITCH PEGISTEF 

?COMPLETE TEST OF POWER FAIL 
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385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
43B 
439 
440 



000204 
000210 
000214 
000220 
000224 
00023B 



000167 000570 
000167 000676 



001000 
001004 
001010 
001014 
001020 
001026 
001034 
001036 



001040 
001046 
001050 

001052 
001060 
001062 
001064 
001070 
001074 
001100 
001102 
001106 
001110 



000167 
000167 
000167 
000167 



000234 
177570 
001000 



012706 
004767 
004767 
012706 
012767 
052767 
II 



001166 
001342 
001606 
002014 



002620 
002736 



001036 
000357 



176776 
176742 



026727 177730 001036 
001401 



026727 177720 000357 
001401 



012700 
012706 
004767 
004470 
005767 
002342 



000210 
001000 
002604 



STARTl: JMP 


TESTl 


START2: JMP 


TEST2 


STR2At JMP 


ALTEST 


STR2B: JMP 


ALTSTl 


START3: JMP 


TEST3 


START4: JMP 


TEST4 


SP=%6 




LIGHTS=%0 




STA?US=177776 




PC=%7 




SMTRP=30 




SWRG=- 




-WOPD 


177570 


.=1000 





;ENTER TEST 1 (TEST TRAP CAPABILITY) 

;ENTER TEST2 (TEST RE-STAPT CAPABILITY) 

?TEST RE-START USING HR- INSTPUCTIOH 

?TEST RE-START USING EMT INSTRUCTION 

;ENTER TEST3 (TEST FOR 2 WIILISECCNDS tl¥f) DDkK TINE 

;ENTER TEST4 (TEST FDR TWO I'lLLISECONDS) UP IIHE 

;STACK 

;data lights 

;location of status register 
;location of pc 
;fmulator trap location 



?BASIC POWER FAIL TEST 



;TEST1 IS A ROUTINE USED TO THE POWER FAIL'S ABILITY 
;T0 TRAP TO LOCATION 24. 



;DPERATOR INSTRUCTIONS 



TESTl: 
LPTSTl: 



TESTIH 

; 

?TEST1 
JSTATUS 
TESTl CH 

HALTl: 



MOV 

JSR 

JSR 

MOV 

MOV 

BIS 

WAIT 

HALT 



#1000, SP 
PC, SETSWR 
PC, UPDATE 
#1000, SP 
#TEST1H, PFHAND 
#357, STATUS 



;SET UP STACK 

;SET UP SWfi POINTER 

?DPDATE SWR 

;SET UP STACK 

;SET UP POINTER 

;SET STATUS BITS 

;WAIT FOR POWER FAIL OPERATOR SHOULD TURN OFF HERE 

;PQWER FAIL HALTS HERE ON WAY DOWV 



CHECK - CHECK IF STACK WAS DECREMENTED AND 
WAS SET UP. 

CMP 774,#TEST1H ;CHECK PC AND SP (LCCATICS) 



BEQ .+4 ;ARE THETf EQUAL 

HALT ;ERRDRI PROCESSOR FAILED TO TRAP 

ILOCATION 774 SHOULD CONTAIN #TEST1H IN STACK 

CMP 776,#357 ;HAS THE STATUS STORED CORRECTLY 

BEQ -+4 ;TEST 

HALT ;ERRCR THE STATUS BEFORE THE TRAP MAS HOT STCRED 

MOV #START2,LIGHTS ;SET UP LIGHTS WITH ADDRESS 

MOV #1000, SP ;SET UP STACK 

JSR PC, PRINT ;END-OF-PASS NSG 
MSG3 

TST SWREG ;LOOP ON TEST? 

BGE LPTSTl ?YES 

HALT ;NORMAL HALT NO ERRORS 



;TEST ROUTINE TO CHECK RE-START CAPABILITY 

JUSIHG THE WAIT INSTRUCTION 

;OPERATOR MUST SET HALT SWITCH TO ENABLE POSITION 



001112 012706 0gliii 



;SET DP STACK 



# % 
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441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 



001116 
001122 
001126 
001134 
001142 
001150 
001154 
001160 
001162 
001164 
001166 
001170 
001172 
001174 
001200 
001202 
001206 
001210 



001212 
001216 
001220 
001224 
001232 
001234 
001236 
001240 
001242 
001244 
001246 
001250 
001254 
001256 
001264 
001266 
001274 
001302 
001306 



004767 
004767 
012767 
012767 
012767 
012706 
012700 
010001 
010102 
010203 
010304 
010405 
000001 
004767 
004516 
005767 
002347 
000000 



022706 
001406 
010667 
012767 
000000 
010046 
010146 
010246 
010346 
010446 
010546 
022706 
001404 
012767 
000000 
012767 
012767 
010667 



002506 

002624 

000357 176642 

000005 176664 

001212 176654 

001000 

152525 



002504 
176770 



PC/ SETSWP 

PC, UPDAtE 

#357, STATUS 

#5,PFHAND42 

#TEST2A,PFHRND 

#1003, SP 

#152525, %0 

%0,11 

%1,%2 

%2,%3 

%3,»4 

%4,%5 

PC, PRINT 
LPTST2 



JSP 

JSB 
LPTST2! MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

WAIT 

JSfi 

MSG4 

TST 

BGE 

HALT 

;OPKRATOR MUST TURN POiilFR OFF HFRF 
JROUTINE TO STORE ACTIVE REG. 



JSET UP SWR POINTER 

JUPDATE SWR 

;SET UP CONDITION CODES 

;SET UP POWER FAIL CODES 

;SET UP POINTER IC STORE '^CUTINE 

;SP UP STACK POISTER 

J«;ET UP FAST NEHDPV 



;WAIT FOR POSsER F?IL tr/sp 
;END-OF-PASS MSP 

;LODP DN TEST? 
/YES 

;FORHAL TEST FALT NC ERROR 



002342 

001232 176572 



000760 

001264 176540 

001310 176530 
000005 176524 
002260 



HALT3E: 
TFST2B: 



TEST2A: CMP 
BEG 
MOV 
MOV 
HALT 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CMP 
BEQ 
MOV 
HALT4E: HALT 
TEST2D: MOV 
MOV 
MOV 
HALT 



#77 4,SP 
TEST2P 
SP,SAVS 
#HALT3E,PFHAND 

%0,-(SP) 

%1,-(SP) 

%2,-(SP) 

%3,-(SP) 

%4,-(SP) 

%5,-CSP) 

#760, SP 

TEST2D 

#HALT4E,PFHAND 



;IS S-^ACK CCRPECT 

;CONIENTS OF STACK SAVED- 
;STACK CCNTAITJS IsRCHG ADDP 

;STORK REG ?■ 

;STORE PEG 1 

;STnRE PEG 2 

;STORF "EG 1 

;STORE PEG 4 

;STCi.E PEG RE STACK 
;TS STACK CORRECT 



J-^HE STACK TS kPCFG 

;HAIT FOR RESTART 
#TEST2CH,PFHA1<1D ;SET UP NEW PCI^TFR 
#5,PFHAND42 
SP,SAVE 

;ALL ACTIVE REG. STDHED. WAIT FCfi RFSTAFl- 



?0PEBA10K MUST TURN POWEk ON HERE 

?ROUTINE TO RE-STORE ACTIVE REGTSTEP AFTE" PE-STAPT. 



001310 016706 002252 

001314 022726 152525 

001320 001401 

001322 000000 

001324 022726 152525 

001330 001401 

001332 000000 

001334 022726 152525 

001340 001401 

001342 000000 

001344 022726 152525 

001350 001401 



TEST2CH 


: 


MOV SAVE,! 




CMP 


#152525, (SF) + 




BEQ 


- + 4 


HALT5F: 


HALT 






CMP 


#152525,(SP)+ 




BEQ 


. + 4 


HALT6E: 


HALT 






CMP 


#152525, (SP)+ 




BEQ 


. + 4 


HALT7E: 


HALT 






CMP 


#152525, (SP)+ 




BEQ 


. + 4 



JTEST SAVE PtG FCP FAST MEHCSY 

J'EST FAST MEFCPV %5 

;SAVE RFG I«? FRPCP 

JTEST SAVE P£G FCP FAST MEMCRY 

j-^EST FAS-^ MEVCRY %4 

?SAVE RFG I*! ERPC 

;TEST SAVE PEG FCP FAST MEMCRY 

?TES7 FAST MEMCRV %3 

;SAVE RFG IN ERRCP 

;TEST SAVE REG. ^th FAST memcFY 

y-^EST FAST MEMCPV %2 
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497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 



001352 
001354 
001360 
001362 
001364 
001370 
001372 
001374 
001400 
001402 
001404 



001406 
001412 
001416 
001422 
001430 
001436 
001444 
001450 
001452 
001456 
001460 
001464 
001466 



001470 
001474 
001476 
001502 
001510 
001512 
001520 
001522 
001530 
001532 
001536 
001544 
001552 
001554 
001560 
001564 



022726 152525 
001401 



022726 152525 
001401 



022706 000774 
001401 



000002 



012706 
004767 
004767 
012767 
012767 
012767 
012706 
000777 
004767 
004544 
005767 
002356 
000000 



022706 
001406 
010667 
012767 



022767 
001404 
012767 
000000 
010667 
012767 
012767 



016706 
062716 
000002 
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HALT8E: HALT 




CMP 


#152575, CSF)+ 


BEQ 


-+4 


HALT9E: HALT 




CMP 


#152525, (SP)+ 


BEG 


.*4 


HALT10Et 


HALT 


CMP 


#774, SP 


BEQ 


,♦4 


HALTllE: 


HALT 


RTI 





001000 
002212 
002330 
000357 
000005 
001470 
001000 

002226 

176512 



002064 
001510 

001450 

001530 

002030 
001554 
000005 

002006 
000002 



176346 
176370 
176360 



;SAVE RFG IN ERRCP 

?TEST SAVE PEG- FCR FAST MEMOPV 

;test fast MEMCPV %1 

;SAVE RFG 1*5 ERROR 

;TEST FAST MENCPY %0 

;SAVE REG. IK ERROR 
;TEST STACK FCfi CCRRECT ADDP. 
ySTACK SHOULD HAVF 2 WDRDS- 
;STACK HAS WRONG ADDR- 
;RETURN FROM TRAP 



;TEST ROUTINE TO CHECK PE-STAFT CAPABILITY 

;DSTFG THE PR. INSTRUCTTOU 

;OPKRAT0R MUST SET HALT SWITCH TO E^'APLE POSITICK 



MOV 

JSR 

JSR 

MOV 

MOV 

MOV 

MOV 

BR 

JSR 

MSG5 

TST 

BGE 

HALT 



n^m, SP 

PC, SETSWP 
PC, UPDATE 
#357, STATUS 
#5,PFHAND+2 
#ALT2,PFHAKD 
#1000, SP 



PC, 



SWREG 
LP ALT 



PRINT 



;STORE ROUTINE FOR ALTEST 
ALT2 



176314 
177254 
176274 



176260 
176254 



ALT2X: 
ALT2A: 



ALT2AX; 
ALT2B: 



CMP 

BEQ 

MOV 

MOV 

HALT 

CMP 

BEQ 

MOV 

HALT 

MOV 

MOV 

MOV 

HALT 

MOV 

ADD 

RTI 



#77 4,SP 
ALT2A 
SP,SAVE 
#ALT2X,PFHAND 

#REALST,774 

ALT2B 

#ALT2AX,PFHAND 

SP,SAVE 

#ALT2C,PFHAND 

#5,PFHAND+2 

SAVE,SP 
#2,(SP) 



;SET UP STACK 
?SET UP SWR FCIKTFR 
;UPDATE SWR 

;SET UP CONDITION CODES 
;SET UP POWER FAIL CODES 
;SET UP POa^R DDfei; POINTER 
?SET UP STACK 
;WAI1 FOR PCKFR FAIL 
;END-OF-PflSS NSC 

?LCOF ON TEST? 

;YES 

;NCPMAL TEST HALT NO ERPOPS 



;HAS STACK PEEK PUSHED TlailCE 

;VES STACK CCRRECT 

;SAVE STACK IC INTERAGATE 

;SET UP ERROR POINTER 

;STACK WAS PUSHED >2< 

?DOFS STACK CONTAIN CORRECT ADDRESS 

;STACK CQ*;TB1N LCC PR. 

;LDCATION 774 INCORRECT 

;SA?E STACK 

JSET UP RESTART PCI».'TER 

;END OF STORE ROUTINE 
;RE-SET STACK 
ySET WE« RETURN ADDRESS 
;PETURN TO LOG (ER-)+l 
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553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 



001566 
001572 
001576 
001602 
001610 
001616 
001624 
001630 
001636 
001644 
001646 
001650 
001656 
001662 
001664 
001670 
001672 



001674 
001702 
001710 
001714 
001716 
001722 
001724 
001732 
001740 
001744 
001746 
001754 
001762 
001766 



001770 
001774 
002000 
002002 
002006 
002010 
002014 
002016 
002024 
002026 
002032 



012706 
004767 
004767 
012767 
012767 
012767 
012706 
012767 
012767 
104002 
000776 
016767 
004767 
004573 
005767 
002344 
000000 



016767 
012767 
022706 
001414 
022706 
001411 
012767 
012767 
010667 



001000 
002032 
002150 
000357 
000005 
001674 
001000 
003560 
000005 



001730 
002022 



012767 
012767 
010667 



176130 
002034 
000774 



001744 

000005 
001622 

001770 
000005 
001600 



016706 001572 

022706 000774 

001723 

022706 000770 

001403 

010567 001552 

000000 

022767 003560 

001711 

011667 001534 



;TESf ROUTIRE TO CHECK RESTART CAPABILITV 

JOSISG THE EMULATOR TRAP FOR A WAIT 

;OPERATDR MUST SET HALT SWITCH TO ENABLE PQSITIOH 

; 
; 



176166 
176210 
176200 

176172 
176166 



ALTSTl! MOV #1000 

JSR PC^ 

JSR PC^ 
LPALTlS M0VS357, STATUS 

MOV 

MOV 

MOV 

MOV 

MOV 
EMTWT: EMT 

BP 
ALTST2S MOV 

JSR 

MSG6 

TST 

BGE 

HALT 



001702 
176120 



176072 
176066 



176050 
176044 



#5/PFHAHD+2 

#ALT3ArPFHAND 

#1000,SP 

#LRTI,EMTRP 

#5,EMTRP+2 

+2 

.-2 

SAVE7^EMTRP 

PC, PRINT 

SWKEG 
LPALTl 



SP ?SET UP STACK 

SETSWB ?SET UP SWR POINTER 

UPDATE JUPDATE SMR 

JSET UP CONDITION CODES 

JSET UP POWER FAIL CODES 
;SET UP POWER DOWN POINTER 



;SET UP EMT TRAP 
^EMULATOR TRAP 



;END-OF-PASS MSG 

;LQOP ON TEST? 

;YES 

;NQRMAL HALT NO ERRORS 



; 

;RODTINE TO STORE ACTIVE REGISTERS 
;POHER DOWN 

; 

ALT3A 



MOV 
MOV 
CMP 
BEQ 
CMP 
BEQ 
MOV 
MOV 
MOV 

ALT3BX: HALT 
ALT3C: MOV 
MOV 
MOV 
HALT 



ALT3B: 



EMTRP/SAVE7 

#ALT3X,EMTRP 

#774, SP 

ALT3C 

#770/ SP 

ALT3C 

#ALT3BX#PFH1IND 

#5,PFHAND+2 

SP/SAVE 

#ALT3D/PFRAND 

#5,PFHAND+2 

SP,SAVE 



;SAVE EMULATOR TRAP 

;SET UP ERROR HALT 

;HAS STACK BEEN PUSHED TWICE 

;HAS STACK BEEN PUSHED 4 TIMES 

;SET UP POWER FAIL POINTER 

;SAVE STACK 

;STACK IHCORRICT (STACK PUSHED LESS THAN 2 DR HCRS THAN 

;SET UP RE-START POINTER 

?SET UP NEW STATUS 



JROUTINE TO TEST POWER UP SEQUENCE 



;END OF STORE ROUTINE 



176744 ALT3E: 



MOV 

CMP 

BEQ 

CMP 

BEQ 

MOV 

HALT 

CMP 

BEQ 

MOV 

HALT 



SAVE,SP 

#774,SP 

ALTST2 

#770/SP 

ALT3E 

SP,SAVE 

#LfiTI,770 

ALTST2 

(SP),SAVE 



;RESTOI<E STACK 

;WAS STACK PUSHED ONLY TWICE 

> 

;ARE WE DOING AN EMT 

;STACK IN SAVE REG. 

;STACK INCORRECT 

;DOES STACK CONTAIN CORRECT INFO 

;YES EXIT 

?STACK CONTAINS WRONG ADDRESS 
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609 
61f? 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 



002036 
002042 



012706 
004767 



002046 004767 

002052 012706 

002056 012767 

002064 012767 

002072 

002074 

002100 004622 

002102 005767 

002106 

002110 



002112 
002116 
002120 
002124 
002132 
002140 
002142 
002150 
002156 
002162 
002164 
002170 
002172 
002200 
002206 
002210 
002216 
002224 
002226 
082234 
002240 



001562 
001700 



002112 
000005 



004767 001604 



022706 
001411 
010667 
012767 
012767 



012767 
012767 
005067 
104000 
022706 
001407 
012767 
012767 



062767 
022767 
001356 
012767 
010667 



175740 
175734 



001442 
002140 



003560 
000005 
001422 

000774 

002206 



175672 
175666 



175660 
175654 



175624 
175620 



001366 
001360 



002242 
001326 



ALT3X: HALT 



;EMT ACTIVE INSTEAD OF POWER FAIL CN POSER OCWN 
JEMT ACTIVE OS RESTART INSTEAD CF POWER FAIL 



;ROUTINE TO CHECK TWO MILLISECOND STORE TIME 

;AVEfiAGE INSTRUCTION TIME 

;ROUTINE WAITS FOR SHUT DOWN IN EMT LOOP 



MOV 

JSR 

JSR 

MOV 

MOV 

MOV 

WAIT 

JSR 

MSG7 

TST 

BGE 

HALT 



#1000/ SP ;SET UP STACK 

PC/ SETSWR ;SET UP SWR POINTER 

PC/ UPDATE JUPDATE SWR 

#1000/SP ;SET DP STACK 

#TEST3A/PFHAND ;SET UP POWER FAIL STORE POINTER 

#5/PFHAND+2 ;SET UP STATUS 

;WAIT FOR INTERRUPT 

PC/ PRINT ;END-OF-PASS ¥SQ 



SWREG ;LOOP ON TEST? 

LPTST3 ;YES 

;NORMAL TEST HALT NO ERRORS 
;LOOP ON TEST 
?RESTART PROGRAM 
yOPERATOR MUST TURN POWER OFF AND ON HERE 

; 

;TEST FOR 2 MILLISECONDS OF AVERAGE INSTRUCTION TIME 
?TIME OF LOOP 57.4 MICROSECONDS 



TEST3A: CMP 

BEQ 

MOV 

MOV 

MOV 

HALT12E:HALT 

TEST3B: MOV 

MOV 

CLR 

TIMLOP: EHT+0 

CMP 

BEQ 

MOV 

MOV 

HALT13E:HALT 

TEST3D: ADD 

CMP 

BNE 

MOV 

MOV 

HALT 



#774/SP ;IS STACK CORRECT 

TEST3B ;STACKER IS CORRECT 

SP/SAVE ;CONTEHTS OF STACK IN SAVE REG- 

#HALT12E/PFHAND ;SETUP ERROR HALT 

#0/PFHAND*2 ;SETUP STATUS WORD 
;WAIT FOR RE-START 
;SET DP EMULATOR TRAP 
;SET UP EMULATOR STATUS 
;SET COUNT TC ZERO 
;EMT TRAP (EMT L00P=57-4 MICROSEC) 
;IS STACK CORRECT AFTER EMT 
;STACK CORRECT CONTINUE 

#HALT13E/PFHAWD ;SETUP ERROR HALT 

#0/PFHAND+2 ;SETUP STATUS 

;WAIT FOR RE-STABT 

#1/SAVE7 ;+l COUNT 

#35./SAVE7 ;HAS LOOP TAKEN 2 MILLISECONDS 

TIMLOP JTIME LESS THAN 2 MILLISECONDS 

#TEST3CH/PFHAND ISET POWER FAIL POINTER 

SP/SAVE ;SAVE STACK 

;ROUTIHE COMPLETE 



#LRTI/EMTRP 

#5/EMTRP+2 

SAVE7 

#774/SP 
TEST3D 



;PROGRAM RESTART ROUTINE 
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665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
732 
703 
704 
735 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
72P 



002242 016706 001320 
002246 000002 



002250 
002254 
002260 
002264 
002270 
002276 
002304 
002306 
002312 
002314 
002320 
002322 



002324 
002330 
002332 
002336 
002344 
002352 
002354 
002362 
002370 
002374 



002376 
002404 
002412 
002416 
002422 
002424 
002430 
002432 
002440 
002446 
002450 
002456 
0552464 
002466 



012706 
004767 
004767 
012706 
012767 
012767 



004767 
004650 
005767 
002361 



022706 
001411 
010667 
012767 
012767 



012767 
012767 
016706 
005067 
104001 
022706 
001407 
012767 
012767 
000001 
062767 
022767 
05^1356 
000167 



001000 
001350 
001466 
001000 
002324 
000005 

001372 



001230 
002352 
000005 



012767 002376 
012767 000005 
010667 001172 



002472 
003560 
001150 
001162 

000774 

002474 

000000 
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TEST3CHS 



175526 
175522 



175460 
175454 



175442 
175436 



175420 
175416 



175364 
17536W 



001126 

t301l20 



SAVE,SP jREStORE SfACK 

JPETURN TO TEST3 



;ROUTINB TO TEST FOR 2 MILLISECONDS CF AVERAGE IhSTPUCTION TINE 

JACTIVE TIME BEFORE NEX"^ POWER LOW FLAG. 

JEMT LOOP TAKES 56 MITROSECONDS 

?THE OPERATOR MUST TURN PCWER CFF AND 0^ 

JVIGOROUSLY 



;) 



IEST4: 



MOV 

JSR 

JSR 

MOV 

MOV 

MOV 

WAIT 

JSR 

NSG8 

TST 

BGE 

HALT 



TEST4A: CMP 
BEQ 
MOV 
MOV 
MOV 
HALT14E:HALT 
TES'^4P: MOV 

Hnv 

MOV 
HALT 



#1000^ SP 
PC, SEISWP 

PC, UPDATE 

#1000, SP 
|fTEST4ArPFHAND 
«5,PFHAWD+2 



PC, 



SWREG 
LPTST4 



PRINT 



;SET UP STACK 

;SET UP SWa PCIN'TER 

^UPDA-^E SWR 

;S£T UP STACK 

;SET POINTER TC HALT 

;SE? UP STATUS 

;WAIT FOR PCfeER FAIL 

?FND-OF-PASS MSG 

?LCOP 0»' -^EST? 

?VES 

?HALT Ti=^ST nVFR NT FR 



#774, SP 
TEST4" 
SP,SAVE 
#HALT14E,PFHAND 

#5,PFHAKD+2 

#'^est4ch,pfha»;d 

#5,PFMAND42 
SP,SAVE 



MS STACK CCRRECT 



;STACK IN SAVE PEG 



;STACK DID NCT CCNTAI»7 774 
;SE'^ UP RE-START POINTER 
JSET UP STATUS 



ROUTINE TC TEST FOP 2 MILLISECONDS U^ TI^E (AVEl-AGF IKSTRUCTICK IIHE) 



TEST4CH:M0V 
MOV 
MOV 
CLR 

UPTIME: EMT+1 
CMP 
BEQ 
HOV 
MOV 
kAIT 

TEST4D: ADD 
CMP 
BNE 
JMP 



||HALT15E,PFHAND JSET UP HALT IF TPAP OCCURS BFFCi^F 2 ^IlLISECCKCS 

f}LRTi,EWTPP ;SE'r UP EMULATOR TRiip 

SAVE,SP JPESIORE STACK 

SAVE? ;ZEPC SAVF 7 

;FMT TI.AP {LCCP = 5f. WicRCSFC) 

#774, SP ;'^EST S-^ACK 

TES'^4D JSTACK IS CCRRECT CCNTINUF 

#HALT16E,PFHAND ;SET UP EPRCi. HALT 

«0,PFHAKL+2 ;S£T UP S-^ATUS 

;V<AIT FOR POiiFR FAIL 

#1,SAVE7 ;+l COU^'TFR 

#36.,SAVE7 ;"AS LCCP TAKEN 2 MILLISECONDS 

UPTIME J^'C"^ VET 2 MILLISECCNDS 

TES'«'4F ;THF POWER FAS FE^N UP FOR 2 MILLISPCCNCS 



•MAIN. MACYll 30(1046) 01-NOV-77 14:00 PACE 14 
DZKAQG-ORC 27-DCT-77 03:52 



721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 



002472 
002474 



002476 
002502 
302506 
002510 
002514 
002520 
002524 
002530 
002536 
002544 
002550 
002554 
002560 
002566 
002574 
002576 
002602 
002604 
002612 
002614 
002622 
002630 
002636 
002644 
002652 
002660 
002664 
002670 
002674 
002700 
002702 
002706 
002712 



002714 
0PI2720 
002722 



012706 
004767 
004352 
004767 
004767 
005067 
005067 
012767 
012767 
012706 
005067 
005777 
062767 
022767 
001367 
005737 
001407 
022737 
001403 
162767 
162767 
016767 
012767 
016767 
012767 
012706 
012702 
012722 
026702 
001373 
012702 
026702 
001103 



HALT15E:HALT 
HALT16E:HALT 



;WE BID NOT HAVE 2 MiLLISECCNDS CF PCVEF CK 
JSTACK INCORRECT AFTER EMULATCh TFAP 



MEMORY POyER ON/OFF TEST 

LOAD MEMORY WITH SET DATA PATTES»3 

THEN COMPARE DATA FOR PIT DROP OUT OR PIT PICK UP 

RE-ENTER COMPARE ROUTINE IF PC«EF FAIL OCCURS 

ROUTINE TO DETERMINE THE AMOUNT OF MEMORY 
ROUTINE TESTS FOR A MAX DP 28K 



001010 
001176 

001114 
001232 
001040 
002216 
002576 
000340 
001000 
001012 
001006 
004000 
160000 

000042 

003102 



000732 
000006 
000706 
003166 
001000 
004750 
152525 
000662 

004750 
000650 



175246 
175242 



001000 
000772 



000042 

000744 
000736 
000724 
175140 
175134 
175144 



TESTS: MOV 
JSR 
MSGl 
JSR 
JSR 
CLR 
CLR 

LPTST5: MOV 
MOV 
MOV 
CLR 

EXHST: TST 
ADD 
CMP 
BFE 

TREMST: TST 
BEQ 
CMP 
BEQ 
SUB 
SUB 
MOV 
MOV 
MOV 
MOV 
HOV 
MOV 

FILDAT: MOV 
CMP 
BSE 

CMDX: MOV 

cmdat: CMP 

BN£ 



#1000, 
FC, 



SP 

PRINT 



FC, SETSWR 

PC, UPDATE 

TEMPST 

PINFLG 

#TREMST,4 

#340,6 

#1000, SP 

SAVE 

gSAVE 

#4000, SAVE 

#160000, SAVE 

EXMST 

@ff42 

- + 20 
#L0GICAL,?«42 

- + 10 

#3000, SAVF 
#500, SAVE 
SAVE,HLIMIT 
#6,4 
HLT,6 

#TEST5A,PFHAND 
#1000, SP 
#LLIMIT,%2 
#152525,(2)+ 
HLIMIT,%2 
FILOAT 
#LLIMIT,%2 
HLIMIT,%2 
ACTMOD 



;S£? UP STACK 
;0UTPUT TITLE 

;SET UP SWR PCIf'TEK 
;UPDATE SKfi 
;CLEAP TEMP. STORAGE 
;CLFAR PKP INT FLAG 
;SET UP FCR BUS TPAP 
;LDCK UP PRICRITV LEVELS 

;SET UP TEST FOR PK 
;TEST MEMORY FOP AVAILAPILITY 
JSE"^ UP TEST FCR NEXT IK 
;TEST FCR BUS TRAP ERROR 
;TEST NEXT 4K ELCCK 



;SET UP FOR LAST AVAILAPLF PANK 

;LAST AVAILABLE MFMCRY ADDRESS 

;RESTOHE ■'HAP KALT POINTER 

yRESTORE HALT, 

;SET UP POINTER 

;SET UP STACK 

;LOK MEMORY LIMIT 

JLOAE DATA INTO NFMORY 

;CCMPARE FOR LAST HEMEORY LCCATICS 

;LDAD NEXT LOCATICN 

JSETUP FOR CDMPARF 

?TEST FOR LAST ADDRESS 



JTEST TPE TTY BUFFER 
JFOR A CDNTROL-G 



105737 177560 

100020 

013705 177562 



TSTB 


iniKs 




JCHAR IN PUFFER? 


BPL 


50$ 




;«0 


MO? 


@#TKB, 


%5 


;STORF CHAR 
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) 



777 
778 

779 
7 80 
781 
78? 
793 
7 84 
785 
786 
787 
788 
789 
79^ 
791 
792 
793 
794 
795 
796 
797 

798 
799 
800 
801 
802 
803 
804 
80^ 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
«21 
822 
823 
824 
825 
826 
827 
82P 
829 
830 
831 
832 



i@2726 
002732 
002736 
002740 
002742 
002750 
002756 
002762 
002766 
002770 
002776 
033000 
003006 
003012 
003014 
003020 
003024 
003032 
003034 
003042 
003046 
003050 
003054 



003062 
003066 
003070 
003072 
003076 
003100 
003102 
003104 
003106 
003110 
003112 
003116 
003122 
003126 
003130 
003134 
0553142 
003146 
003154 



003156 
003162 
003164 



003166 
003170 
003172 
003176 
003200 
003204 



042705 
122705 
001401 
000418 
016767 
042767 
004767 
105767 
100016 
32767 
001026 
012767 
004767 
003614 
005067 
005067 
032767 
001010 
012767 
004767 
004436 
005067 
013700 
001004 
005767 
002013 
000000 
005767 
001407 
000??05 
004710 
000240 
000240 
000240 
000137 
000167 
022722 
001667 
010267 
162767 
016700 
012767 



017700 
000000 
000650 



010046 
010246 
005767 
001053 
022706 
001411 



177600 

100007 



175230 001772 
040000 175220 



000776 
000576 



000001 
000672 



001726 
000540 



000001 
000636 



001672 

000042 



40$: 



50S: 



175200 

001740 



175144 
001704 



000200 
177406 
152525 

000434 

000002 000426 

000422 

003154 174650 



BIC 

CMPB 

BEQ 

BR 

MOV 

BIC 

JSR 

TSTR 

BPL 

BIT 

B!i£ 

MOV 

JSR 

HSG 

CLR 

CLR 

EOP: BIT 
BNE 
HOV 
JSR 
MSG2 
CLR 

CKACT: MOV 
BNE 
TST 
BGE 
HALT 

AUTO: TST 
BEQ 
RESET 

LOGICALSJSR 
NOP 
NOP 
NOP 
JMP 

LOC: JMP 

ACTMOD: CHP 
BEQ 
M0¥ 
SDB 
MOV 
MOV 

HALT18E:HALT 



#177600, 



#7 

40S 

50$ 

#40000, 

PC, 

TEMPST 

EOP 

#40000, S«REG 

CKACT 

n, 

PC, 



%5 



TEMSHR 

SWREG 

UPDAfl 



PINFLG 
PRINT 



PINFLG 

TEMPST 

#40000, SVREG 

CKACT 

#1, PINFLG 

PC, PRINT 

PINFLG 

0#42,%0 
AUTO 
SWREG 
LOC 

FLAG 

LOC 

%7,C0) 



@#200 

LPTST5 

#152525,(2)+ 

CMDAT 

%2,SAVE1 

#2, SAVE! 

SAVEl, LIGHTS 

#HALT18E,PFHAND 



%5 JSTRIP STB PIT 

;COFTPOL-G? 

;YES 

)VQ 

;SAVE SWREG 

;ENABLE TTY PRIWTING 

;UPDA?E S«R 

;PyR FAIL OCCORREC? 

?Na 

;TTy PRINTING DISABLED? 

;YES 

;SET PyR INT FLAG 

;OUTPUT PWR FAIL WSC 

;CLEAR PWR INT FLAG 

JTTY PRINTING DISABLED? 

;YES 

;SET PMP INT FLAG 

;END-OF~PASS ¥SQ 

;CLEAR PMR INT FLAG 

;BR IN AUTO MODE 

;LDOP ON TEST? 

;YES 

JHALT TFST OVER NC ERRORS 



;TEST DATA 

;CDMPARE NEXT HORD 

;ADDRESS OF ERROR+2 

?SUBTRACT TO CALCULATE CORRECT ADDRESS 

;DA'^A ERROR IN TBIS ADDRESS 

;SET UP POMER FAIL TRAP FOR ERROR 

;LOC DATA LIGHTS CONTAINS BAD DA1I 



^FAILING ADDRESS IN DATA LIGHTS 

GONAD: MOV @SAVE1, LIGHTS ;PUT DATA IN DISPLAY LIGHTS 

HALT19E:HALT ?BAD DATA 

CONAC: BR CMDAT ;COMPARE WEXT feORD 

?ENTER THIS ROUTINE ^HEN POWER FAIL OCCURPS 

;STORE ALL ACTIVE REGISTERS THEN HALT; 



001550 
000770 



TEST5A: 


MOV 


LIGHTS,- 


(SP) 


;SAVE LIGHTS 




MOV 


%2,-{SP) 




?SAVE MEMORY ADDRESS 




TST 


PINFLG 




;PiiR FAIL DUbING PRINTOUT? 




BFE 


BRl 




;YES 




CMP 


#770, SP 




;IS STACK CORRECT 




BEQ 


TEST5E 




;STflCK CORRECT 
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833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
84^^ 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 



003206 
003212 
003220 
003226 
003230 
003236 
003244 
003252 
003260 
003264 
003266 
003272 
003274 
003300 
003306 

003310 
003316 
003324 
003326 
033334 
003342 
003346 
003352 
003356 
003362 



0^^3364 
003370 
003374 
003400 
003404 
003410 
003412 
003416 
003420 
003426 
003430 
003436 
003444 
003450 
003452 
003460 
003464 
003466 
003474 
003500 

003502 
003510 
003512 
003514 



010667 
012767 
012767 
000000 
012767 
012767 
012767 
012767 
005067 
104002 
022706 
001406 
010667 
012767 



062767 
022767 
001357 
012767 
012767 
010667 
010367 
010467 
010567 



016706 
016703 
016704 
016705 
005767 
001040 
022706 
001404 
012767 



012767 
012767 
05067 
104003 
062767 
022706 
001406 
012767 
010667 



022767 
001357 
012602 
012600 



000354 
003226 

000005 

003550 
000005 
003560 
000005 
000320 

000770 

000266 
003306 



003364 
000005 
000220 
000234 
000232 
000230 



000176 
000212 
000210 
000206 
001336 

000770 



174604 
174600 

174566 
174562 
174556 
174552 



MOV 
MOV 
MOV 

halt20e:halt 
test5e: mov 

MOV 
MOV 
MOV 
CLR 

MASTIM: EMT 
CMP 
BEQ 
HOV 
MOV 

HALT22E:HALT 



000266 
000260 



174470 
174464 



003426 174376 



003552 

000005 
000134 



174366 
174362 



xtime: 



ADD 
CMP 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 



SP,SAVE 

#HALT20E,PFHAND 

#5,PFHAND+2 

#HALT21E,PFHAND 

#5,PFHAND+2 

#LRTI,EMTRP 

#5,EMTRP+2 

SAVE7 

+ 2 

#770, SP 

XTIME 

SP,SAVE 

#HALT22E,PFHAND 



#1,SAVE7 

#23.,SAVE7 

MASTIM 

#TEST5CH,PFHAND 

#5,PFHAND4-2 

SP,SAVE 

%3, SAVES 

%4, SAVE9 

%5, SAVE10 



;STACK SAVED 

;SET UP STA-^US 

;WAIT FOR RE-START 

;SET UP FOR 2 MILLISECOND DOWN TIWE ERRCR 

;AVERAGE IHSRUCTIDS TIME 

;SET UP EMULATOR TRAP 

JCLEAR COUNT REGISTER 

JEXECUTE EMT 

;IS STACK CORRECT AFTER TRAP 

;YES 

}VD SET UP ERROR TRAP STACK NOT CORRECT 
;STACK SHOULD EQUAL 770 (SAVE REG. 
;CONTAINS CONTENTS OF STACK) 
;ADD TO TIME COUNT 
?IS TIME OK 

;YES SETUP RESTART ADDRESS 
;SAVE STACK 

;SAVE REGISTERS 



RESTORE ACTIVE REGISTERS AND RETURN FROM INTERRUPT 



003500 
000066 



000043 000074 



test5CH:mdv 

MOV 
MOV 
MOV 
TST 
BNE 
CMP 
BEQ 
HOV 

HALT23E:HALT 

UPXTIM: MOV 
MOV 
CLR 

EMTUP: EMT 
ADD 
CMP 
BEQ 
HOV 
MOV 

HALT25E:HALT 

CNTEMTS CMP 
BHE 

BR2: MOV 
MOV 



SAVE,SP 

SAVES, %3 

SAVE9, %4 

SAVE10, %5 

PINFLG 

BR2 

#770, SP 

UPXTIM 

#HALT23E,PFHAND ;SET UP FOR STACK ERROR TRAP 



;RESTORE STACK 
;RESTnRE REGISTERS 



jPap FAIL DURING PRINTOUT? 

;yes 

;IS STACK CORRECT 



#HALT24E,PFHAWD 

#5,PFHAWD+2 

SAVE7 

+3 

|1,SAVE7 

#770, SP 

CNTEMT 

#HALT25E,PFHAND 

SP,SAVE 



#3S,,SAVE7 
EMTUP 
(SP)*,%2 
(SP)+,LIGHTS 



;SET UP FOR 2 MILLISECOND UP TIME ERROR 

;CLEAR COUNT REGISTER 

;EXECUTE EMULATOR TRAP 

;1NCREMENT EMULATOR TRAP COUNT 

;IS STACK CORRECT AFTER EMT 

lYES 

5STACK HOT CORRECT(SET UP ERROR HALT) 

?STACK DID NOT = 770(SAVE REGISTER 

;CONTAIHS CONTENTS OF STACK 

IHAS POMER BEEN UP 2 HILLISECOHDS 

;N0 EXECUTE SEXT EMT 
;YES TIME OK 
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890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
945" 
941 
942 
943 
944 



003516 
003524 
003532 
003540 
003546 
003550 
003552 



003554 
003556 
003560 
003562 
003564 



012767 
012767 
012767 
152767 

000002 



003166 

008005 
177777 
000200 



000000 



000240 
177777 

000000 
000002 
017500 
000000 



003614 
003622 



003630 
003634 
003640 
003646 
003652 
003654 
003662 
003664 
003670 
003674 
003702 



174300 
174274 

000014 
000016 



003566 000000 
003570 000004 
003572 000000 
003574 000000 
003576 000000 
003600 000000 
003602 
003604 
003606 
003610 
003612 



177560 
177562 
177564 
177566 
005015 
040506 
003630 

313746 
013746 
012737 
005777 
000404 
012767 
022626 
012637 
012637 
017767 
000207 



MOV 

MOV 

MOV 

BISB 

RTI 
HALT21E:HALT 
HALT24i!HAlT 
} 
} 
} 

; 
; 

} 

} 

NOP=240 
FLAGS177777 
HLT: HAL? 
LRTl: RTI 
HLIMIT: 17500 
TEMPST: 

;WORK REGISTERS 



053520 
046111 



000006 
000004 
003654 
174362 



#TEST5A/PFHAMD 
#5,PFHAND+2 
<|177777/FLAG 
#200/TEMPST 



000176 174352 IS: 

000004 2S: 

000006 

174334 174274 



SAVE: 

SAVEl: 

SAVE2: 

SAVE3: 

SAVE4: 

SAVES: 

SAVE6: 

SAVE7: 

SAVES: 

SAVE9: 

SAVE10: 



TKS=177'560 
TKB=177562 
TPS=:177564 
TPB=177566 
msg: .ASCIZ 



-EVEN 

MOV 

MOV 

MOV 

TST 

BR 

MOV 

CMP 

MOV 

MOV 

MOV 

RTS 



;REST ARE ACTIVE REGISTER 
JRETURN FROM POWER FAIL TRAP 
;SET POWER FAIL FLAG 



;WE DTD NOT HftVE lUG MILLISECONDS TO STCRF ACTIVE i«EG. 
JPOWER WAS NOT ACTIVE FOR T«0 MILL ISECO»'CS 



<15><12>.PWP FAIL- 



g#6,-(SP) 

0#4,-(SP) 

#l$r@#4 

taSWRG 

2§ 

#SWREG,SkRG 

(SP)-»-/(SP)* 

(SP)+,8«4 

CSP)+r0«6 

eSfePG/ SWRFG 

PC 



;SAVE CUFPENT VECTCF 

}^Ef UP TIMFOUT VFCTOP 
;TRV TO FEFFfcENCE HflRDWAfcF 
;BR IF nc TIMEOUT OCCURS 
;901M TC SOFTWARE S«R 
;RESTDPF STACK 
JRESTCBE TIMEOUT VECTOR 



;SftVE SWR AT LCC 176 



003704 032767 040030 174264 PRINT: BIT 



#4000C», S«REG ;SR14 SET? 
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945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
936 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 



003712 
003714 
003722 
003724 
003726 
003730 
003734 
003736 
003742 
003744 
003750 
003752 
003760 
003766 
003770 
003776 



004012 
004016 
004020 
004024 



004026 
004032 
004036 
004042 
004046 
004052 
004056 
004060 
004064 
004066 
004070 
004072 
004074 
004076 
004100 
004102 
004106 
004110 
004114 
004120 
004122 
004124 



004126 
004132 
004136 



001014 

023727 000042 003102 

001410 

011603 

011303 

105737 177564 

100375 

112337 177566 

001372 

062716 000002 

000207 

016767 174220 000762 

032767 040000 174210 

001016 

023727 000042 003102 

001412 

004767 177700 

004676 

004767 000014 

004767 177666 

004705 

004767 000102 

000207 



004722 

000704 
000702 
177770 
000060 
004736 

000660 



012704 
016714 
011467 
042714 
062724 
022704 
001411 
016714 
000241 
006014 
000241 
006014 
000241 
006014 
000756 
105737 
100375 
014437 
022704 
001401 
000767 
000207 



005067 000606 
005067 000600 
012704 004722 



177566 
004722 



00 PAGE 


18 








BNE 


RETURN 






CMP 


e#42. 


#ldgical' 




BEQ 


RETURN 






MOV 


(SP), 


%3 ' 




MOV 


(%3), 


%3 


4S: 


TSTP 


e#TPs 






BPL 


4^ 






MOVR 


(%3)+, 


gifTPB 




BNE 


4$ 




RETURN: 


ADD 


#2, 


(SP) 




RTS 


PC 




UPDATE: 


MOV 


SWREG/ 


TEMSWP 


UPDATi: 


BIT 


#40000, 


S^REG 




BNE 


90S 






CMP 


e#42. 


^logical' 




BEG 


90$ 






JSR 


PC/ 


PRINT 




MSG9 








JSR 


PC/ 


OUTPUT 




JSR 


PC/ 


PRINT 




MSG10 








JSR 


PC, 


INPUT 


90$: 


RTS 


PC 





OUTPUT: 


MOV 


#TARLF, 


%4 




MOV 


lEMSWF, 


(?4) 


8$: 


MOV 


(%4), 


ROTATE 




BIC 


#177770, 






ADD 


#60, 


'(%4)+ 




CMP 


#TABLE+14, 




BEQ 


10$ 






MOV 


ROTATE, 


(14) 




clc 








ROR 


(%4) 






clc 








ROR 


(%4) 






clc 








ROR 


(%4) 






BR 


8$ 




10$: 


TSTP 


@#TPS 






BPL 


10$ 






MOV 


-{%4), 


@#TPB 




CMP 


#TABLE, 


%4 




BEQ 


12$ 






BR 


10$ 




12$: 


RTS 


PC 





iVES -DISABLE PRINTING 

?ONDEI^ ACT? 
lYES 

^ADDRESS OF HSG AFTER JSR 
!ADDR'='SS OF FIRST CHAR OF MSG 
(PUFFER JtEADV? 
IWO-LOCP 

(YES-PUT MSG CfiAH INTO BUFFER 
(CONTINUE IF CHAR IsAS NOT 
(SET UP RETURN 
(FE'URN TO TEST 
(STORE SWR VALUE 
(TTV PRINTING DISABLED? 
(YES-RETUPN TC TEST 

;UNnER ACT? 
(YES-PETURN TT TEST 



fPRIST CUPREKT SkF VALUF 



^UPDATE GR "^AVE SWR 



;PRINT CURRENT SisF 
;AT THE TTY 

;PDTNT ?D TABLE 

;MCVE SAVED S«fi TC TABLE 

;SAVE CURRENT VALUE 

(%4) JCONVERT ONE ASCII CHAR 

?POTNT TO NEXT LCC IN TABLE 

%4 ;TF 6TH DIGTT- 

;BR 

;POINT TO NEXT CHAR 



;PRIMTER READY? 



;OUTPUT CHAR IN TABLE 
;OUTPUT ALL CHAR IN TABLE 



^ 



CLR 
CLR 

MOV 



CNTR 
USSRSG 
STABLE, %4 



;CONTINUE 



;UPDATE OR SAVE SSR 



JCLEAR CHARACTER COUNTER 

;CLEAR LAST UPDATED SW 
;PQINT TO TABLE 
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SEG 0019 



) 



1001 


004142 


105737 


177560 




14$: 


fSTB 


8#TKS 




JCHAH IW BUFFER? 


1002 


004146 


100375 








BPL 


14S 




;N0 


1003 


004150 


013714 


177562 






HOV 


8#TKB, 


C%4) 


IPUT CHAR IH TABLE 


1004 


004154 


105737 


177564 




16$: 


TSIR 


@#TPS 




;PRINTER READY? 


1005 


004160 


100375 








BPL 


16$ 




?flO 


1006 


004162 


011437 


177566 






HDV 


(%4), 


eflTPB 


jECflC INPUT 


1007 


004166 


042714 


177600 






BIC 


#177600 


r 


(%4) ;STRIP 8TH BIT 


1008 


004172 


122714 


000015 






CMPB 


#15, 


(?4) 


/CARRIAGE RETURN? 


1009 


004176 


001417 








BEQ 


20$ 




;yEs 


1010 


004200 


122714 


000060 






CMPB 


#60, 


(14) 


;ILLEGAL CHAR? 


1011 


004204 


003055 








BGT 


22$ 




lYES 


1012 


004206 


122714 


000067 






CMPB 


#67, 


(%4) 


;ILLEGAL CHAR? 


1013 


004212 


002452 








BLI 


22$ 




;YES 


1014 


004214 


022767 


000006 


000516 




CMP 


#6, 


CNTR 


;7TH DIGIT? 


1015 


004222 


003446 








OLE 


22$ 




;yes 


1016 


004224 


062704 


000002 






ADO 


#2, 


%4 


;P0IIIT TO NEXT TABLE LOG 


1017 


004230 


005267 


000504 






INC 


CSTR 




^INCREMENT CHARACTER COOKTER 


1018 


004234 


000742 








BR 


14$ 




?CDNTINUE 


1019 


004236 


005014 






20$: 


CLR 


(%4) 




>CLEAR CR FROM TABLE 


1020 


004240 


005767 


000474 






TST 


CWTR 




;TF no DIGITS WERE INPUT- 


1021 


004244 


001431 








BEQ 


24$ 




;G0 save old SWR VALUE 


1022 


004246 


012704 


004722 






HOV 


#TABLE, 


%4 


;P0INT TO TABLE 


1023 


004252 


042714 


000060 




26$: 


BIC 


#60, 


(%4) 


;STRIP ASCII BITS 


1024 


004256 


062467 


000454 






ADD 


(%4)+, 


USWREG 


;CREATE UPDATED SWR VALUE 


1025 


004262 


005367 


000452 






DEC 


CNTR 




JDECREHBNT CHARHCTER COUNTER 


1026 


004266 


005767 


000446 






1ST 


CNTR 




?LAST CHAR INPUT? 


1027 


004272 


001412 








BEQ 


28$ 




;YES 


102R 


004274 


000241 








CLC 






JNO-ROTATE DIGITS 


1029 


004276 


006167 


000434 






ROL 


USWREG 






1030 


004302 


000241 








CLC 








1031 


004304 


006167 


000426 






ROL 


USNREG 






1032 


004310 


000241 








CLC 








1033 


004312 


006167 


000420 






ROL 


OSWREG 






1034 


004316 


000755 








BR 


26$ 




/CONTINUE 


1035 


004320 


016767 


000412 


173650 


28$: 


MOV 


USWREG, 


SWREG 


;M0VE new VALUE TC LOG 176 


1036 


004326 


000207 








RTS 


PC 




/RETURN 


1037 


004330 


016767 


000406 


173640 


24$: 


MOV 


TEMSMR, 


SWREG 


/RESTORE? OLD SWR VALUE 


1038 


004336 


000207 








RTS 


PC 




/RETURN 


1039 


004340 


004767 


177340 




22$: 


JSR 


PC, 


PRINT 


/REPEAT PROMPTING MSG 


1040 


004344 


004705 








MSG10 






/ 


1041 


004346 


000167 


177554 






JMP 


INPUT 




/BEGIN THIS ROUTINE AGAIN 


1042 


















/ 


1043 




















1044 


















/ 


1045 


















/ 


1046 


















/ 


1047 


004352 


005015 


040515 


047111 


MSGl: 


.ASCII<15><12>/MAINDEC- 


-11-DZKAQG/ 


1048 


004360 


042504 


026503 


030461 












1049 


004366 


042055 


045532 


050501 












1050 


004374 


107 
















1051 


004375 


015 


050012 


050104 




.ASCI7,<15><12>/PDP-11 POWER F8IL DIAGFQStIC/<15><12> 


1052 


004402 


030455 


020061 


047520 












1053 


004410 


042527 


020122 


040506 












1054 


004416 


046111 


042040 


040511 












1055 


004424 


047107 


051517 


044524 












1056 


004432 


006503 


000012 















.MAIN. MACYll 30(1046) 01-NOV-77 14:00 PAGE 20 
DZKAQG.QRC 27-0CT-77 08:52 



1057 


004436 


005015 


054105 


051105 


1058 


004444 


044503 


042523 


020122 


1059 


004452 


047105 


020104 


043117 


1060 


004460 


050040 


051501 


006523 


1061 


004466 


000012 







.ASCIZ<15><12>/EXfRCISER END OF PASS/<15><12> 



# *• 



-MAIN. MACYll 30(1046) 01-NOV-77 
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106? 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
108R 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
15^99 



004470 
004476 
004504 
004512 
004516 
004524 
004532 
004540 
004544 
004552 
004560 
004566 
004573 
004600 
004606 
004614 
004622 
004630 
004636 
004644 
004650 
004656 
004664 
004672 
004676 
004704 
004705 
00471? 
004720 

004722 
004736 
004740 
004742 
004744 
004746 
004750 



005015 
020061 
43117 
006523 
005015 
020062 
043117 
006523 
005015 
052123 
047440 
051523 
015 
052123 
020104 
051501 
005015 
020063 
043117 
006523 
005015 
020064 
043117 
006523 
005015 
000 
015 
020127 

000 

004722 
0P4736 

000000 
000000 
000000 
000<?00 
000000 



042524 
047105 
050040 
000012 
042524 
047105 
050040 
000012 
046101 
042440 
020106 
005015 
040412 
020061 
043117 
006523 
042524 
047105 
050040 
000012 
042524 
047105 
050040 
000012 
053523 

005012 
053523 



052123 
020104 
051501 

052123 
020104 
051501 

042524 
042116 
040520 
000 
052114 
047105 
050040 
000012 
052123 
020104 
051501 

052123 
020104 
051501 



042516 
03652? 



00 PAGE 21 

MSG3*. .ASCIZ<15><12>/fESTl END OF P!ISS/<15><12> 

MSG4: ,ASCiZ<15><12>/TEST2 END OF PftSS/<15><12> 

MSG5: .ASCIZ<15><12>/ALTEST END OF PASS/<15><12> 

MSG6: .ASC1Z<15><12>/ALTST1 END OF PASS/<15><12> 

MSG7: .ASCIZ<15><12>/TEST3 END OF PASS/<1S><1?> 

MSG8: .ASCIZ<15><12>/TEST4 END OF PASS/<15><12> 



) 



000001 



HSG9: .ASCIZ<15><12>/SiiP = / 

HSG10: .ASCIZ<15><12><12>/^'E>< SWP = / 



-EVEN 

TABLE: -=-+14 

OSaREG: 

CNTR: 

TEMSWF: 

ROTATE: 

pinflg: 

LLIMIT: 
,END 



-MAIN. 


MACVU 30(1046) 


01-MOV- 


"77 14: 


00 PAGE 23 


DZKAQG- 


QHC 27-0CT-77 


08:52 




CROSS REFERENCE TABLE 


ACTHQD 


00312? 


769 


813« 




ALTEST 


001406 


387 


513# 




ALTSTl 


0t!1566 


388 


55 9f 




ALTST2 


001650 


570f 


599 


605 


ALT2 


001470 


518 


529# 




ALT2A 


001512 


533 


534« 




ALT? AX 


001530 


536 


537ff 




ALT2B 


001532 


535 


538# 




ALT2C 


001554 


539 


542# 




ALT2X 


0Pil51^ 


532 


533# 




ALT3A 


001674 


564 


580« 




ALT3B 


001724 


586# 






ALT3BX 


0(^1744 


586 


5P9# 




ALT3C 


001-746 


583 


585 


590« 


ALT3D 


001770 


590 


597# 




ALT3E 


002016 


601 


65"4# 




ALT1X 


002034 


581 


611« 




AUTO 


003072 


800 


804# 




BRl 


003326 


830 


852# 




BR2 


003512 


869 


887S 




CKACT 


003054 


787 


794 


79g# 


CMDAT 


002706 


76 8 # 


814 


824 


CMDX 


002702 


767# 






CNTEM- 


003502 


8«0 


885lf 




CNTP 


004740 


998* 


1014 


1017* 1070 10?5' 


CONAC 


003164 


824# 






GONAD 


003156 


822# 






EMTRP = 


000030 


395« 


566* 


367* 570* 583 


EMTUP 


003450 


877# 


886 




EMTWT 


001644 


568# 






EOP 


003024 


7P5 


793# 




EXMST 


002554 


748# 


751 




FILDAT 


002670 


764# 


766 




FLAG 


003554 


804 


891* 


904f 


HALTl 


001050 


421# 






HALT10 


001372 


503# 






HALTll 


001402 


506fl 






HALT12 


002140 


641 


643# 




HALT13 


002206 


650 


652# 




HALT14 


002352 


696 


698» 




HALT15 


002472 


707 


721i 




HALT16 


002474 


714 


722# 




HALTIR 


003154 


818 


81 9 # 




HftLT19 


003162 


823« 






HALT2 


001062 


425# 






HALT20 


003226 


834 


836# 




HALT21 


003550 


837 


B94# 




HALt22 


003306 


846 


847# 




HALT23 


003426 


872 


873# 




HALT24 


00355? 


874 


a95# 




HALT25 


003500 


881 


883# 




HALT3E 


00123? 


464 


465# 




HALT4E 


001264 


474 


475# 




HALT5E 


001322 


488# 






HALT6E 


001332 


491# 






HALT7S 


001342 


494« 







USER SyM^QlS 



*M1III» MICYll 3iC1046) 
Q7.KhQn.QUC 27-DCT-77 



) 



:') 



HALT8E 


001352 


l«Lf9E 


001362 


HLIMIt 


003562 


HLT 


003556 


INPUT 


004126 


LLIMIT 


004750 


LOG 


003116 


LOGICA 


i03l0'2 


LP ALT 


001422 


LP ALT! 


001602 


LPTSTl 


001014 


LFTST? 


001126 


LPT.ST3 


i02@52 


LFTST^ 


0E3 2264 


LPTST5 


002530 


LRTI 


003560 


MISTER 


000200 


MASTIN 


§03264 


MSG 


003614 


MSGl 


004352 


HSG10 


00 4705 


MSG2 


004436 


MSG3 


004470 


MSG4 


0114516 


MSG5 


004544 


MSG6 


004573 


HSG7 


004622 


MSG8 


004650 


MSG9 


004676 


NOP - 


000240 


OUTPUT 


004326 


PFHAND 


090024 


PI^TLG 


0P4746 


PRINT 


003704 


REALS? 


0«145@ 


RETURN 


003744 


ROTATE 


004744 


SAVE 


003566 


SaVEl 


0(^3570 


SA¥Eie' 


003612 


SAVtl 


003572 


SA¥E3 


003574 


SAVE4 


003576 


SAVES 


003680 


SAVFfi 


003602 


Sa¥E7 


003604 


SAVES 


003606 


5kVE9 


003610 


SKTSWR 


003630 


S'^kPll 


S08204 



01-ffO¥- 
I8s52 

4<?7# 

S0g# 

758* 

760 

966 

763 

802 

378 

516# 

562# 

411 # 

443# 

622# 

681 # 

744# 

566 

384# 

842« 

790 

739 

965 

797 

429 

455 

522 

572 

627 

686 

962 

903# 

963 

358# 

540* 

656* 

835* 

743* 

428 

520# 

945 

974* 

463* 

665 

854* 

815* 

857* 

913# 

914# 

915# 

916# 

917# 

570 

885 

855* 

856* 

409 

385# 



I4s0g PACE 24 

CROSS SEFEREMCE IkBLE 



USER S¥HPDLS 



765 

g0S# 

998# 

767 

805 

754 

524 

574 

431 

457 

629 

688 

812 

604 

851 

928# 

i47# 

040 

057# 

062» 

066f 

07 0f 

i74# 

078# 

082# 

086# 

972# 
412* 
563* 

682* 

837* 

788* 

454 

534 

947 

979 

478* 

695* 

864 

816* 

867 



580* 

918# 

865 

866 

441 



768 



907# 



1S41 
1098# 

8l2ff 

807# 946 



444* 
564* 
683* 
838* 
791* 
521 

954# 
1096# 
485 
701* 
882* 
817 
921« 



919# 
920# 
514 



445* 
586* 
696* 
846* 
795* 
571 



531* 
709 
911# 
822 



464* 474* 

587* 590* 

697* 699* 

852* 853* 

798* 829 

626 685 



538* 
747* 



542 
748 



476* 

591* 

700* 

872* 

868 

738 



5R8* 
749* 



477* 
623* 
707* 
874* 
1097« 
789 



592* 
750 



517* 
624* 
714* 
875* 

796 



597 
756* 



518* 
641* 
715* 
881* 

944# 



6C2* 
757* 



532* 
642* 
761* 
889* 

961 



606* 
758 



536* 
65B* 
818* 
890* 

964 



642* 
833* 



539* 
651* 
834* 



657* 
845* 



Jll 



.¥kin. 


MICYll 30(1046) 


01-HOV- 


-77 14: 


00 PAGE 


25 












DZKAQG. 


QRC 27~0C'!'-77 


08SS2 




CROSS REFERENCE 


TIBLE — 


USER SYMBOLS 








STRRT2 


000210 


386# 


426 
















START3 


000224 


389# 


















START4 


0PS0230 


3901 


















STATU^r 


177776 


393# 


413* 


443* 


516* 


562* 










STK2A 


000214 


387# 


















STR2B 


000220 


388# 


















SMRSG 


000176 


382# 


430 


456 


523 


573 


628 687 


781 


782* 


786 793 881 






941* 


944 


956 


957 


1035* 


1037* 








SWRG = 


0tS0234 


396# 


935 


937* 


941 












TABLE 


004722 


972 


977 


990 


1000 


1022 


1092# 








TEMPST 


003564 


742* 


784 


792* 


892* 


908# 










TEMSMR 


004742 


781* 


956* 


973 


1037 


1095f 










TESTl 


001000 


385 


408# 
















TESTIC 


001040 


419# 


















TESTIH 


001036 


412 


415# 


419 














TEST2 


001112 


386 


440# 
















TEST2ft 


001212 


445 


461ff 
















TKST2R 


001234 


462 


466# 
















TSST2C 


001310 


476 


485# 
















TEST2D 


001266 


473 


476# 
















TESTS 


002036 


389 


619# 
















TES?3a 


002112 


623 


638# 
















Tssta^ 


002142 


639 


644# 
















TSST3C 


002242 


656 


665# 
















TESTSD 


002210 


649 


65 3# 
















TESt4 


002250 


390 


678# 
















TEST4a 


002324 


682 


693# 
















fEST4P 


002354 


694 


699# 
















TEST4C 


0R2376 


699 


707# 
















TEST40 


002450 


713 


717# 
















TEST4E 


002306 


685# 


720 
















TESTS 


002476 


384 


737# 
















TESTSft 


003166 


761 


827# 


889 














TESTSC 


003364 


852 


864# 
















TESTSE 


003230 


832 


837f 
















TIHLOP 


002162 


647# 


655 
















TKB 


177562 


776 


925# 


1003 














TKS 


177560 


77 4 


924# 


1001 














TPB 


177566 


927# 


952* 


989* 


1006* 












TPS 


177564 


926# 


950 


987 


1004 












TREMST 


002576 


744 


752# 
















UPDATE 


003752 


410 


442 


515 


561 


621 


680 741 


956# 






UPDATl 


003760 


783 


957# 
















UPTIME 


002422 


711# 


719 
















UPX-^IM 


003430 


871 


87 4f 
















OSM??EG 


004736 


999* 


1024* 


1029* 


1S31* 


1033* 


1035 1093# 








ITIME 


003310 


844 


849# 


















004752 


353# 


358 


364 


377« 


379# 


381# 383S 


396 


398# 


420 424 487 






493 


496 


499 


502 


505 


520 569 


753 


755 


930S 1091# lfl92K 



„ ABS. 004752 00i 
ERRORS DETECTED: 



.MAIN- MACYH 30(1046) Bl-HDV-?? 14:00 PAGE 26 
DZKAQG-QRC 27-0CT-77 08:52 CROSS FEFERENCE TABLE 

dzkaqg.bin,dzkaqg.lst/crf/sol/wl:toc=dzkiqg.qrc 

RUM-TIMES 1 2 .2 SECONDS 
RUN-TIME RATIO: 61/3=17.1 
CORE USED: 6K (11 PAGES) 



USER SYMRCLS 



) 



) 



